home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / SHARED.DIR / 01991_Script_Other Game Controls < prev    next >
Text File  |  1995-09-13  |  2KB  |  115 lines
  1. global gBtn16, gBtn17, gBtn18
  2. global gGameBtn1, gGameBtn2, gGameBtn3, gGameBtn4,gGameBtn5,gGameBtn6
  3. global gAnsA, gAnsB, gAnsC
  4. global oGame, oLastGame, gNewGameWorld, oGameControl
  5. global gNewMarker, gLastMarker, gWhatMovie
  6.  
  7. on KillGIP
  8.   mKillGIP(oGameControl)  
  9. end KillGIP
  10.  
  11. on GoGIP
  12.   mExitToGIP(oGameControl)
  13. end GoGIP
  14.  
  15.  
  16. on answera  
  17.   mUserAnswers oGame, "A"
  18. end answera
  19.  
  20. on answerb
  21.   mUserAnswers oGame, "B"
  22. end answerb
  23.  
  24. on answerc
  25.   mUserAnswers oGame, "C"
  26. end answerc
  27.  
  28. on NewGame
  29.   if objectp(oGame) then
  30.     go frame "restart"
  31.   else
  32.     set oGame=0
  33.     go frame "Entry"
  34.   end if
  35. end NewGame
  36.  
  37. on OKNewGame
  38.   set oLastGame=oGame
  39.   set oGame=0
  40.   HideControl(gGameBtn5)
  41.   HideControl(gGameBtn6)
  42.   if length(gNewGameWorld)>0 then
  43.     do gNewGameWorld
  44.   else
  45.     go frame "Entry"
  46.   end if
  47. end OKNewGame
  48.  
  49. on CancelNewGame
  50.   HideControl(gGameBtn5)
  51.   HideControl(gGameBtn6)
  52.   set gNewGameWorld=""
  53.   go frame "Chips"
  54. end CancelNewGame
  55.  
  56. on ExitGame
  57.   leavegame
  58. end ExitGame
  59.  
  60. on EGameSwitch
  61.   if objectp(oGame) then
  62.     if mGetLevel(oGame)=4 then
  63.       EGame
  64.       exit
  65.     end if
  66.   end if
  67.   
  68.   go frame "Restart"
  69.   set gNewGameWorld="EGame"
  70. end EGameSwitch
  71.  
  72. on AGameSwitch 
  73.   if objectp(oGame) then
  74.     if mGetLevel(oGame)=4 then
  75.       AGame
  76.       exit
  77.     end if
  78.   end if
  79.   
  80.   go frame "Restart"
  81.   set gNewGameWorld="AGame"
  82. end AGameSwitch
  83.  
  84. on VGameSwitch 
  85.   if objectp(oGame) then
  86.     if mGetLevel(oGame)=4 then
  87.       VGame
  88.       exit
  89.     end if
  90.   end if
  91.   
  92.   go frame "Restart"
  93.   set gNewGameWorld="VGame"
  94. end VGameSwitch
  95.  
  96. on leavegame
  97.   set vMarkerToJump=gNewMarker
  98.   set gNewMarker=gLastMarker  -- forces markers back to point where they were before game 
  99.   
  100.   set gBtn16=0
  101.   set gBtn17=0
  102.   set gBtn18=0
  103.   
  104.   turnoffpuppets 1 --APN 7/19
  105.   go frame (vMarkerToJump) of movie gWhatMovie
  106. end leavegame
  107.  
  108. on helpgame
  109.   mGoHelp(oGameControl)  
  110. end helpgame
  111.  
  112. on leavegamehelp
  113.   mLeaveHelp(oGameControl)
  114. end leavehelp
  115.